﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class almvendedorFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As AlmVendedorBE
        Dim tmpAlmVendedor As AlmVendedorBE = New AlmVendedorBE()
        Try
            With tmpAlmVendedor
                .ClaveMat = convertDTFromDb.convertInt32(dr.Item("ClaveMat"))
                .Existencia = convertDTFromDb.convertInt32(dr.Item("Existencia"))
                .IdEmpresa = convertDTFromDb.convertInt32(dr.Item("IdEmpresa"))
                .IdVendedor = convertDTFromDb.ConvertString(dr.Item("IdVendedor"))

            End With
            Return tmpAlmVendedor
        Catch ex As Exception
            Throw
        Finally
            tmpAlmVendedor = Nothing
        End Try
    End Function
End Class
